The Arsenal Files 6

home *** CD-ROM | disk | FTP | other *** search

/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / agavb25.zip / VB.ZIP / GEXAMPLE.FRM < prev next >

Wrap

Text File | 1996-01-16 | 15KB | 482 lines

VERSION 2.00 Begin Form Examples BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Examples" ClientHeight = 5370 ClientLeft = 1365 ClientTop = 1380 ClientWidth = 10125 Height = 5775 Left = 1305 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 358 ScaleMode = 3 'Pixel ScaleWidth = 675 Top = 1035 Width = 10245 Begin AGAUGE Gauge1 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 1 ' 1 - Raised BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 2 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 2190 Left = 3240 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 Shape = "" TabIndex = 10 Top = 30 Value = 0 Width = 3570 XScale = 0 YScale = 0 ZLoad = GEXAMPLE.FRX:0000 End Begin AGAUGE Gauge2 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00E0FFFF& BevelInner = 0 ' 0 - None BevelOuter = 0 ' 0 - None BevelWidth = 0 BorderType = 0 ' 0 - None BorderWidth = 0 FontID = 0 FrameColor = &H00808080& FrameScaleX = 1.25 FrameScaleY = 1.1 FrameStyle = 1 ' 1 - Circle Height = 2895 Left = 45 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 Shape = "" TabIndex = 9 Top = 2400 Value = 0 Width = 2940 XScale = 0 YScale = 0 ZLoad = GEXAMPLE.FRX:016A End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Stop Watch" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000080& Height = 3000 Left = 3135 TabIndex = 4 Top = 2280 Width = 3675 Begin AGAUGE Gauge4 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00FFFFFF& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 0 ' 0 - None BorderWidth = 2 FontID = 0 FrameColor = &H00C0C0C0& FrameScaleX = 1.27 FrameScaleY = 0 FrameStyle = 1 ' 1 - Circle Height = 2475 Left = 90 MouseControl = 0 'False OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 Shape = "" TabIndex = 8 Top = 360 Value = 0 Width = 2745 XScale = 0 YScale = 0 ZLoad = GEXAMPLE.FRX:0412 End Begin CommandButton Command1 Caption = "&Start" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Index = 0 Left = 2850 TabIndex = 7 Top = 1770 Width = 750 End Begin CommandButton Command1 Caption = "S&top" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Index = 1 Left = 2850 TabIndex = 6 Top = 2145 Width = 750 End Begin CommandButton Command1 Caption = "&Reset" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Index = 2 Left = 2850 TabIndex = 5 Top = 2520 Width = 750 End End Begin AGAUGE Gauge7 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 2 ' 2 - Outline BorderWidth = 2 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 3105 Left = 6810 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00404080& OutlineTitle = "Compass" OutlineWidth = 4 Radius = 0 Shape = "" TabIndex = 3 Top = 2280 Value = 0 Width = 3375 XScale = 0 YScale = 0 ZLoad = GEXAMPLE.FRX:0650 End Begin Timer Timer4 Interval = 200 Left = 6390 Top = 7065 End Begin AGAUGE Gauge6 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 2 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1080 Left = 6975 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 Shape = "950,-150, -650,-150, -950,-50, -1000,-200, -1100,-200, -1100,200, -1000,200, -950,50, -650,150, 350,150, 350,350, 450,350, 500,300, 500,150, 950,150, 1020,100, 1050,50, 1050,-50, 1020,-100" TabIndex = 2 Top = 1140 Value = 0 Width = 3000 XScale = 0 YScale = 0 ZLoad = GEXAMPLE.FRX:0841 End Begin AGAUGE Gauge5 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 2 ' 2 - Inset BevelOuter = 1 ' 1 - Raised BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 2 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1080 Left = 6975 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 Shape = "0,-40, 700,-15, 700,15, 20,40, 20,120, 200,120, 200,140, 20,140, 20,200, -20,200, -20,140, -200,140, -200,120, -20,120, -20,40, -700,15, -700,-15" TabIndex = 1 Top = 30 Value = 0 Width = 3000 XScale = 0 YScale = 0 ZLoad = GEXAMPLE.FRX:09CB End Begin Timer Timer3 Interval = 50 Left = 6360 Top = 6630 End Begin AGAUGE Gauge3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 2 FontID = 1 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 2190 Left = 90 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 1 Radius = 0 Shape = "" TabIndex = 0 Top = 15 Value = 0 Width = 3090 XScale = 0 YScale = 0 ZLoad = GEXAMPLE.FRX:0B2A End Begin Timer Timer2 Interval = 100 Left = 6360 Top = 7500 End Begin Timer Timer1 Interval = 1000 Left = 6360 Top = 7950 End End Dim numsecs As Single Dim nummins As Single Dim numhours As Single Dim dpitch As Single Dim droll As Single Sub Command1_Click (index As Integer) Select Case index Case 0 timer3.Enabled = True Case 1 timer3.Enabled = False Case 2 gauge4.NeedleID = 0 gauge4.NeedleValue = 0 gauge4.NeedleID = 1 gauge4.NeedleValue = 0 gauge4.NeedleID = 2 gauge4.NeedleValue = 0 End Select End Sub Sub Form_Load () numhours = Val(Format$(Now, "hh")) If numhours > 12 Then numhours = numhours - 12# nummins = Val(Format$(Now, "nn")) * .2 numsecs = Val(Format$(Now, "ss")) gauge2.NeedleID = 0 gauge2.NeedleValue = numhours gauge2.NeedleID = 1 gauge2.NeedleValue = nummins gauge2.NeedleID = 2 gauge2.NeedleValue = numsecs timer1.Enabled = True dpitch = 1 droll = 2 End Sub Sub Gauge1_Turn () gauge1.AnnularID = 3 gauge1.AnnularStartValue = gauge1.NeedleValue End Sub Sub gauge7_change () gauge7.TicID = 0 gauge7.TicFloatOffset = gauge7.NeedleValue gauge7.TicID = 1 gauge7.TicFloatOffset = gauge7.NeedleValue gauge7.AnnularID = 2 gauge7.AnnularFloatOffset = gauge7.NeedleValue gauge7.AnnularID = 3 gauge7.AnnularFloatOffset = gauge7.NeedleValue gauge7.AnnularID = 4 gauge7.AnnularFloatOffset = gauge7.NeedleValue End Sub Sub Gauge7_Turn () gauge7.TicID = 0 gauge7.TicFloatOffset = gauge7.NeedleValue gauge7.TicID = 1 gauge7.TicFloatOffset = gauge7.NeedleValue gauge7.AnnularID = 2 gauge7.AnnularFloatOffset = gauge7.NeedleValue gauge7.AnnularID = 3 gauge7.AnnularFloatOffset = gauge7.NeedleValue gauge7.AnnularID = 4 gauge7.AnnularFloatOffset = gauge7.NeedleValue End Sub Sub Timer1_Timer () numhours = Val(Format$(Now, "hh")) If numhours > 12 Then numhours = numhours - 12# nummins = Val(Format$(Now, "nn")) * .2 numsecs = Val(Format$(Now, "ss")) gauge2.NeedleID = 0 gauge2.NeedleValue = numhours gauge2.NeedleID = 1 gauge2.NeedleValue = nummins gauge2.NeedleID = 2 gauge2.NeedleValue = numsecs End Sub Sub Timer2_Timer () Dim a As Double Randomize a = gauge3.NeedleValue + 2 * Rnd - 1 gauge3.NeedleValue = a End Sub Sub Timer3_Timer () gauge4.NeedleID = 1 i = gauge4.NeedleValue i = i + 1 If i > 15 Then i = 0 gauge4.NeedleID = 0 j = gauge4.NeedleValue j = j + 1 If j > 60 Then j = 0 k = 0 gauge4.NeedleID = 2 k = gauge4.NeedleValue k = k + 1 If k > 5 Then k = 0 gauge4.NeedleValue = k End If gauge4.NeedleID = 0 gauge4.NeedleValue = j End If gauge4.NeedleID = 1 gauge4.NeedleValue = i End Sub Sub Timer4_Timer () gauge5.NeedleValue = gauge5.NeedleValue + droll If gauge5.NeedleValue >= 30 Then droll = -2 If gauge5.NeedleValue <= -30 Then droll = 2 gauge6.NeedleValue = gauge6.NeedleValue + dpitch If gauge6.NeedleValue >= 30 Then dpitch = -1 If gauge6.NeedleValue <= -30 Then dpitch = 1 gauge7.NeedleValue = gauge7.NeedleValue + 1 If gauge7.NeedleValue >= 360 Then gauge7.NeedleValue = 0 gauge7_change End Sub